home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (Latin America) Volume 1 #6 / CD-ROM Today 6 Latam.iso / referenc / evol / database.dxr / 00091_Frame Script (master).ls < prev    next >
Encoding:
Text File  |  1996-11-08  |  562 b   |  30 lines
  1. on exitFrame
  2.   global mc, mw, ml, gbTraceLine, gNextArticle
  3.   set mc to the mouseCast
  4.   set mw to the mouseWord
  5.   set ml to the mouseLine
  6.   set gbTraceLine to 0
  7.   set GOTZONE to CheckScrollZones()
  8.   if not GOTZONE then
  9.     set GOTZONE to CheckNarrativeZones()
  10.   end if
  11.   if not GOTZONE then
  12.     set GOTZONE to CheckTextZones()
  13.   end if
  14.   if not GOTZONE then
  15.     cursor(-1)
  16.     set gNextArticle to "..."
  17.   end if
  18.   UpdatePreview()
  19.   go(the frame)
  20. end
  21.  
  22. on idle
  23.   scanTag()
  24. end
  25.  
  26. on UpdatePreview
  27.   global gNextArticle
  28.   set the text of field 19 to gNextArticle
  29. end
  30.